
If ProcessExists("Rogue Tools.exe") Then
	$f = 0
Else
	MsgBox(4096, "Rogue Tools?", "You need to be running Rogue Tools in order to use this control")
	Exit
EndIf
$fileba = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\bardvars.txt", 0)
$alt1ba = FileReadLine($fileba, 1)
$alt2ba = FileReadLine($fileba, 2)
$alt3ba = FileReadLine($fileba, 3)
$alt4ba = FileReadLine($fileba, 4)
$alt5ba = FileReadLine($fileba, 5)
$alt6ba = FileReadLine($fileba, 6)
$alt7ba = FileReadLine($fileba, 7)
$alt8ba = FileReadLine($fileba, 8)
$alt9ba = FileReadLine($fileba, 9)
$alt1tba = FileReadLine($fileba, 10) / 1000
$alt2tba = FileReadLine($fileba, 11) / 1000
$alt3tba = FileReadLine($fileba, 12) / 1000
$alt4tba = FileReadLine($fileba, 13) / 1000
$alt5tba = FileReadLine($fileba, 14) / 1000
$alt6tba = FileReadLine($fileba, 15) / 1000
$alt7tba = FileReadLine($fileba, 16) / 1000
$alt8tba = FileReadLine($fileba, 17) / 1000
$alt9tba = FileReadLine($fileba, 18) / 1000
FileClose($fileba)

Global $resa = @DesktopWidth
Global $resb = @DesktopHeight
Global $winadded = $resa + $resb

If $winadded <> 1400 And $winadded <> 1792 And $winadded <> 2304 And $winadded <> 2800 Then
	nowinres()
EndIf

GUICreate("Rogue Bard", 550, 380, -1, -1, -1, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
GUICtrlCreatePic(@ProgramFilesDir & "\burnersware\Rogue Tools\Include\img\burnerssidebarbard.jpg", 0, 22, 155, 360)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("ALT Macros---------------TTC", 170, 80, 170, 165)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("1", 180, 95, 17, 33)
GUISetFont(9, 400)
$altb11 = GUICtrlCreateRadio("On", 210, 100, 45, 15)
$altb10 = GUICtrlCreateRadio("Off", 210, 115, 45, 15)
GUISetFont(9, 400)
If $alt1ba = 1 Then
	GUICtrlSetState($altb11, $GUI_CHECKED)
EndIf
If $alt1ba = 4 Then
	GUICtrlSetState($altb10, $GUI_CHECKED)
EndIf
$altb1s = GUICtrlCreateCombo("0", 275, 105, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt1tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("2", 180, 130, 17, 33)
GUISetFont(9, 400)
$altb21 = GUICtrlCreateRadio("On", 210, 135, 45, 15)
$altb20 = GUICtrlCreateRadio("Off", 210, 150, 45, 15)
GUISetFont(9, 400)
If $alt2ba = 1 Then
	GUICtrlSetState($altb21, $GUI_CHECKED)
EndIf
If $alt2ba = 4 Then
	GUICtrlSetState($altb20, $GUI_CHECKED)
EndIf
$altb2s = GUICtrlCreateCombo("0", 275, 140, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt2tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("3", 180, 165, 17, 33)
GUISetFont(9, 400)
$altb31 = GUICtrlCreateRadio("On", 210, 170, 45, 15)
$altb30 = GUICtrlCreateRadio("Off", 210, 185, 45, 15)
GUISetFont(9, 400)
If $alt3ba = 1 Then
	GUICtrlSetState($altb31, $GUI_CHECKED)
EndIf
If $alt3ba = 4 Then
	GUICtrlSetState($altb30, $GUI_CHECKED)
EndIf
$altb3s = GUICtrlCreateCombo("0", 275, 175, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt3tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("4", 180, 200, 17, 33)
GUISetFont(9, 400)
$altb41 = GUICtrlCreateRadio("On", 210, 205, 45, 15)
$altb40 = GUICtrlCreateRadio("Off", 210, 220, 45, 15)
GUISetFont(9, 400)
If $alt4ba = 1 Then
	GUICtrlSetState($altb41, $GUI_CHECKED)
EndIf
If $alt4ba = 4 Then
	GUICtrlSetState($altb40, $GUI_CHECKED)
EndIf
$altb4s = GUICtrlCreateCombo("0", 275, 210, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt4tba)
GUISetFont(9, 400)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("ALT Macros---------------TTC", 365, 80, 170, 200)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("5", 375, 95, 17, 33)
GUISetFont(9, 400)
$altb51 = GUICtrlCreateRadio("On", 405, 100, 45, 15)
$altb50 = GUICtrlCreateRadio("Off", 405, 115, 45, 15)
GUISetFont(9, 400)
If $alt5ba = 1 Then
	GUICtrlSetState($altb51, $GUI_CHECKED)
EndIf
If $alt5ba = 4 Then
	GUICtrlSetState($altb50, $GUI_CHECKED)
EndIf
$altb5s = GUICtrlCreateCombo("0", 470, 105, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt5tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("6", 375, 130, 17, 33)
GUISetFont(9, 400)
$altb61 = GUICtrlCreateRadio("On", 405, 135, 45, 15)
$altb60 = GUICtrlCreateRadio("Off", 405, 150, 45, 15)
GUISetFont(9, 400)
If $alt6ba = 1 Then
	GUICtrlSetState($altb61, $GUI_CHECKED)
EndIf
If $alt6ba = 4 Then
	GUICtrlSetState($altb60, $GUI_CHECKED)
EndIf
$altb6s = GUICtrlCreateCombo("0", 470, 140, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt6tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("7", 375, 165, 17, 33)
GUISetFont(9, 400)
$altb71 = GUICtrlCreateRadio("On", 405, 170, 45, 15)
$altb70 = GUICtrlCreateRadio("Off", 405, 185, 45, 15)
GUISetFont(9, 400)
If $alt7ba = 1 Then
	GUICtrlSetState($altb71, $GUI_CHECKED)
EndIf
If $alt7ba = 4 Then
	GUICtrlSetState($altb70, $GUI_CHECKED)
EndIf
$altb7s = GUICtrlCreateCombo("0", 470, 175, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt7tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("8", 375, 200, 17, 33)
GUISetFont(9, 400)
$altb81 = GUICtrlCreateRadio("On", 405, 205, 45, 15)
$altb80 = GUICtrlCreateRadio("Off", 405, 220, 45, 15)
GUISetFont(9, 400)
If $alt8ba = 1 Then
	GUICtrlSetState($altb81, $GUI_CHECKED)
EndIf
If $alt8ba = 4 Then
	GUICtrlSetState($altb80, $GUI_CHECKED)
EndIf
$altb8s = GUICtrlCreateCombo("0", 470, 210, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt8tba)
GUIStartGroup()
GUISetFont(24, 400)
GUICtrlCreateLabel("9", 375, 235, 17, 33)
GUISetFont(9, 400)
$altb91 = GUICtrlCreateRadio("On", 405, 240, 45, 15)
$altb90 = GUICtrlCreateRadio("Off", 405, 255, 45, 15)
GUISetFont(9, 400)
If $alt9ba = 1 Then
	GUICtrlSetState($altb91, $GUI_CHECKED)
EndIf
If $alt9ba = 4 Then
	GUICtrlSetState($altb90, $GUI_CHECKED)
EndIf
$altb9s = GUICtrlCreateCombo("0", 470, 245, 37, 150, BitOR($ES_READONLY, $CBS_DROPDOWNLIST, $LBS_STANDARD, $CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, "2|4|8|12", $alt9tba)
GUISetFont(9, 400)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 465, 308, 80, 47)
$OKbard = GUICtrlCreateButton("RUN", 475, 325, 60, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1, $GUI_CHECKED)


GUISetState()
While 1
	$msg = GUIGetMsg()
	If $msg = $OKbard Then
		bardc()
		bardr()
	EndIf
	If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

Func bardc()
	$filebard = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\bardvars.txt", 2)
	FileWrite($filebard, GUICtrlRead($altb11) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb21) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb31) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb41) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb51) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb61) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb71) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb81) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb91) & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb1s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb2s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb3s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb4s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb5s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb6s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb7s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb8s) & "000" & @CRLF)
	FileWrite($filebard, GUICtrlRead($altb9s) & "000" & @CRLF)
	FileClose($filebard)
EndFunc ;==>bardc

Func bardr()
	Run("Rogue Bard.exe")
	Exit
EndFunc ;==>bardr

Func nowinres()
	MsgBox(4096, "Resolution Error", "Your current windows resolution is not supported _
			"  & @CRLF & " Please Switch To one of the four supported resolutions And restart Burners Rogue Tools Software"  & @CRLF & " These Include 800x600 & 1024x768 & 1280x1024 & 1600x1200 _
			" & @CRLF & " Thank You")
	Exit
EndFunc ;==>nowinres

